home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Importers / YAM.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-15  |  1015 b   |  44 lines
  1. /*****
  2.   $VER: RecentScript YAM Importer 1.1 (11.3.98) ©Arndt van der Molen
  3.  
  4.  
  5.         RecentScript Importer for email reader YAM
  6.  
  7.   is a MUIRexx subapplication and can not be started directly.
  8.  
  9.   It is called only from RecentScript at the 'Import' button.
  10.  
  11.   This importer delivers the filename of the currently selected
  12.   mail in the message list window as RETURN value. In any other
  13.   error case no RETURN value must be given.
  14.  
  15.   Known 'Bugs':
  16.    - Multiselection not supported
  17. *****/
  18.  
  19. OPTIONS RESULTS
  20.  
  21. PARSE ARG portname
  22.  
  23. ADDRESS VALUE portname
  24.  
  25. IF SHOW('P', 'YAM') = 0 THEN DO
  26.   request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING 'You must start YAM first'
  27.   RETURN
  28. END
  29.  
  30. ADDRESS 'YAM' getmailinfo file
  31. filename = RESULT
  32.  
  33. IF filename = 'RESULT' THEN DO
  34.   request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING 'You must select a mail first'
  35.   RETURN
  36. END
  37.  
  38. IF EXISTS(filename) THEN DO
  39.   ADDRESS COMMAND 'filenote <>nil:' filename 'O'
  40.   ADDRESS 'YAM' MailUpdate
  41. END
  42.  
  43. RETURN filename
  44.